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MODULE CHKHM2 ( 


BEGIN 


' 
LR RRR ERR REAR R ERA EAE AERA EEEREEEAEEAAEEEAETERERERR EERE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
's DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


is THIS SOFTWARE 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
i ay Y ee NCE wre THE TERMS OF SUCH LICENSE AND WITH THE 


® 
® 
® 
® 
® 
fh 
* 
® 
' s 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
! * 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
i 
® 
® 
® 
® 
te 
® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 
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2 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR WELIABILITY OF ITS 
$ '® SOFTWARE ON EGUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
' 
03 ss scpenteeheeiieie ec ddaesttlytiinehlneioernieiedaiindhaiiiaietiiedsatuladambanateaieatinatach hilebteiceioendeteadin 
003 '++ 
003 ! 
O08 FACILITY: MOUNT Utility Structure Level 2 
005 i ABSTRACT: | 
003 i This routine verifies whether a given block is Files-11 Structure 
i ; Level 2 home block. 
004 i ENVIRONMENT : 
41 004 i 
4 004 : STARLET operating system, including privileged system services 
4 004 : and internal exec routines. 
44 044 1! 
45 045 laa 
46 0046 } | 
47 0047 } 
$8 O068 1 AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Nov-1977 19:23 
30 oo3t i MODIFIED BY: 
3¢ 038 VO3-001 HHO041 ang 24-Jul-1984 | 
37 it Remove REQUIRE taps CVASLIB.OBJJMOUNTMSG.B32'. 
55 boas i V02-000 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:38 | 
28 ones & Previous revision history moved to MOUNT.REV 
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a. 

16-Sep-1984 01:12:11 

erect 982 93:18:16 
GLOBAL ROUTINE CHECK _HOMEBLK2 (HOME_BLOCK, LBN, VOLUME_LABEL) 
ne 


i FUNCTIONAL DESCRIPTION: 
Level 2 home block. 
' CALLING SEQUENCE: 
CHECK_HOMEBLK2 (ARG1, ARG2, ARG3) 
! INPUT PARAMETERS: 
ARG1: address of buffer containing biock 
ARG2: LBN of block 
ARGS: string descriptor of user specified volume Label 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

stati OUTPUTS: 


OUNT_OPTIONS: structure level 2 bit set if so 


ROUTINE VALUE: 
1 if valid and correct 


0 no 

SS$_INCVOLLABEL if valid but volume Label is wrong 
SIDE EFFECTS: 

NONE 


BEGIN 
MAP 
HOME BLOCK : REF BBLOCK, ! home block buffer 
VOLURE_LABEL : REF VECTOR; ! volume Label descriptor 
EXTERNAL 
MOUNT_OPTIONS : BITVECTOR; ! command options 
EXTERNAL ROUTINE 
CHECKSUM2; ' compute home block checksums 


: Check the required non-zero fields and compute the checksums. 


AND .HOME~BLOCKCHM2SL ALTIDXLBN NEQ 0 


( 
HOME BLOCKEHMGSL “ALT IDILE QL .LBN 
AND .HOME-BLOCKCHM2$W_CLUSTER] NEQ 0 
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This routine verifies whether the given block is a Files-11 Structure 
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TITLE 
- IDENT 


TSTW 


: 120 650 AND .HOME_BLOCKCHM2$W_HOMEVBN] NEQ 0 

: 121 651 AND .HOME _BLOCKLHM2S$W_ALHOMEVBN) NEQ 8 

; 1 : 6 : AND .HUMEBLOCKCHM2SW-ALTIDXVBN] NEQ 

> 5 AND .HOME-BLOCKCHM2$W-IBMAPVBN] NEQ 

> 124 0654 AND .HOME BLOCKLHM2SL_IBMAP NEQ 

3 te 802? AND .HOME BLOCKLHM2SL_MAXFILES] NEQ 

3 3 g o28 AND .HOME_BLOCKLHM2$W_IBMAPSIZE] NEQ 0 

s 065 AND .HOME BLOCKLHM2$W_RESFILES] NEQ 0 

; 128 0658 AND CHECKSUM2 (.HOME_BLOCK, SBYTEOFFSET (HM2$W_CHECKSUM1)) 

: : ; +84 AND SreCROUN (.HOME_ BLOCK, SBYTEOFFSET (HM2$W_CHECKSUM2) ) 

; } 1 ree: THEN RETURN 0; 

3 : é peer MOUNT_OPTIONSCOPT_IS_FILES11B] = 1; ! set structure level 2 flag 
; 136 0665 IF CHSNEQ (. VOLUME _LABELCO), .VOLUME_LABEL(1], 

> 136 0666 HM2$S_VOLNAME, HOME _BLOCKCHM2$T_VOLNAME], ° *) 

3 57 0667 THEN RETURN (SS$_INCVOLLABEL); 

; (138 0668 

; I 0669 RETURN 1; 

; 140 0670 2 

: (141 0671 1 END; ! end of routine CHECK_HOMEBLK2 


CHKHM2 

\V04-000\ 

MOUNT_OPTIONS, CHECKSUM2 
SCODES,NOWRT,2 
CHECK_HOMEBLK2, Save R2,R3 
WORE BLOCK. R2 
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0648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 


0593 
“7 


: Size: 122 code + 0 data bytes 


H 3 
CHKHA 16-Sep-1984 01:12:11 VAX-11 Bliss-32 V4.0-742 
¥Oe~080 1er8ep= 188s F3:L81g  UTeKSumBHASTERSCHOUNT. SecaCHKHN2.832" 
00006 F § Fe 4s CALLS #2, SyeCnsune 
D 5 4 BL BC iio 
E O1FE F C GA MOVZWL # {0, (SP) 
i) Gf PUSHL 
0000G CF 4 51 CALLS ; HECKSUM2 
1E f 3 BLBC 
90006 gf 04 5 B1SB2 as. ne tas eg ay 
0 0c a : MOVL VOLUME Age. Rg 
oc 20 04 BO 0108 68 ) ? CMPCS (RO), SccR ), #32, #12, 472(R2) 
$6 13 68 BEQL 
50 010C F 3 te MOVZWL 1268, RO 
4 RET 
50 01 00 Babs 1$: MOVL #1, RO 
04 pare RET 
50 D4 00077 2$: CLAL RO 
04 00079 T 
; Routine Size: 122 bytes, Routine Base: $CODE$ + 0000 
: 14 pore 1 
; #14 067 1 END 
3; 6144 0674 0 ELUDOM 
H PSECT SUMMARY 
3 Name Bytes Attributes 
; SCODES 122 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bio ke ge ty en ee ae tt Cs She ae Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 25 0 1000 00:02.0 
4 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CHKHM2/OBJ=OBJ$:CHKHM2 MSRC$: CHKHM2/UPDATE=(ENHS: CHKHM2) 
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| 
cemety Used: 99 pages 
Compilation Complete 
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